home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / weblibev / wlapidlg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-29  |  10.9 KB  |  376 lines
  1. { =============================================================================
  2.   Copyright 1995 by Potomac Software, Inc. Use of this material is subject to
  3.   the terms and conditions of the software license agreement.
  4.        
  5.   WLAPIDLG.PAS: Contains Delphi declarations for WebLib (TM) Test App.         
  6.   ============================================================================== }
  7.   
  8. unit WeblibApiDlg;
  9.  
  10. { ========== INTERFACE ========== }
  11.  
  12. interface
  13.     uses WinTypes;
  14.  
  15. { ========== constants for working with bitmaps in WLAPIDLG.DLL ========== }
  16.  
  17. const 
  18.     BM_UP = $1;
  19.     BM_SEL = $2;
  20.     BM_FOCUS = $4;
  21.     BM_DISABLED = $8;
  22.  
  23. const     
  24.     APIDLG_BITMAP_UP = 500;
  25.     APIDLG_BITMAP_SEL = 600;
  26.     APIDLG_BITMAP_FOCUS = 700;
  27.     APIDLG_BITMAP_DISABLED = 800;
  28.  
  29. { ========== Entry points into DLL that contain dialogs for WEBLIB API test apps ========== }
  30.  
  31. { ========== Convenience routines for interfacing with 4GLs ========== }
  32.  
  33. function ApiDlgSubclass4GL(hWnd4GL: HWnd;
  34.     nMsg: Word) : Bool; far;
  35.     
  36. function ApiDlgUnsubclass4GL(hWnd4GL: HWnd) : Bool; far;
  37.  
  38. procedure ApiDlgGetFontInfo4GL(hFont: HFont;
  39.     lpszFont: PChar;
  40.     cbFont: Integer;
  41.     var nPointSize: Integer); far; 
  42.  
  43. procedure ApiDlgFreeFont4GL(hFont: HFont); far ;
  44.  
  45. function ApiDlgCreateFont4GL(lpszFont: PChar;
  46.     nPointSize: Integer) : HFont; far;
  47.     
  48. { ========== Housekeeping ========== }
  49.  
  50. function GetApiDlgDLLInstance : THandle; far;
  51.  
  52. function ApiDlgNotifyOnWindowDestroy(hwndNotify : HWnd;
  53.     nMsg: Word) : Bool; far;
  54.     
  55. function ApiDlgLogging(lpszLogFile: PChar;
  56.     cbLogFile: Word;
  57.     var bLogging: Bool) : Bool; far;
  58.  
  59. { ========== Browser ========== }
  60.  
  61. function ApiDlgConnectBrowser(var bStart: Bool;
  62.     var bSend: Bool;
  63.     var bPost: Bool) : Bool; far;
  64.     
  65. function ApiDlgDisconnectBrowser(var bExit: Bool) : Bool; far; 
  66.  
  67. function ApiDlgGetWindowInfo(var dwWindow: LongInt) : Bool; far;
  68. function ApiDlgListWindows(var bFirst: Bool) : Bool; far;
  69.  
  70. function ApiDlgCloseWindow(var dwWindow: LongInt) : Bool; far;
  71. function ApiDlgActivateWindow(var dwWindow: LongInt) : Bool; far;
  72.  
  73. function ApiDlgSetWindowPos(var dwWindow: LongInt;
  74.     var dwX: LongInt; 
  75.     var dwY: LongInt;
  76.     var dwWidth: LongInt;
  77.     var dwHeight: LongInt) : Bool; far; 
  78.     
  79. function ApiDlgShowWindow(var dwWindow: LongInt;
  80.     var nShow: Word) : Bool; far;
  81.  
  82. function ApiDlgShowFile(lpszFile: PChar;
  83.     cbFile: Word;
  84.     lpszMIME: PChar;
  85.     cbMIME: Word;
  86.     var bNotify: Bool;
  87.     lpszURL: PChar;
  88.     cbURL: Word;
  89.     var dwWindow: LongInt) : Bool; far;
  90.     
  91. function ApiDlgOpenURL(var bBackground: Bool;
  92.     var bNoDocCache: Bool;
  93.     var bNoImageCache: Bool;
  94.     var bNotify: Bool;
  95.     lpszURL: PChar;
  96.     cbURL: Word;
  97.     var dwWindow: LongInt) : Bool; far; 
  98.     
  99. function ApiDlgSaveURL(var bBackground: Bool;
  100.     var bNoDocCache: Bool;
  101.     var bNoImageCache: Bool;
  102.     var bNotify: Bool;
  103.     lpszURL: PChar;
  104.     cbURL: Word;
  105.     lpszFile: PChar;
  106.     cbFile: Word;
  107.     var dwWindow: LongInt) : Bool; far;
  108.     
  109. function ApiDlgPostFormData(lpszFormData: PChar;
  110.     cbFormData: Word;
  111.     lpszMIME: PChar;
  112.     cbMIME: Word;
  113.     var bNotify: Bool;
  114.     lpszURL: PChar;
  115.     cbURL: Word;
  116.     var dwWindow: LongInt) : Bool; far;
  117.     
  118. function ApiDlgSaveFormData(lpszFile: PChar;
  119.     cbFile: Word;
  120.     lpszFormData: PChar;
  121.     cbFormData: Word;
  122.     lpszMIME: PChar;
  123.     cbMIME: Word;
  124.     var bNotify: Bool;
  125.     lpszURL: PChar;
  126.     cbURL: Word;
  127.     var dwWindow: LongInt) : Bool; far; 
  128.         
  129. function ApiDlgCancel(var dwTrx: LongInt) : Bool; far;
  130.  
  131. function ApiDlgRegisterProtocol(lpszProtocol: PChar;
  132.     cbProtocol: Word) : Bool; far;
  133.  
  134. function ApiDlgUnregisterProtocol(lpszProtocol: PChar;
  135.     cbProtocol: Word) : Bool; far;
  136.  
  137. function ApiDlgRegisterViewer(lpszMIME: PChar;
  138.     cbMIME: Word;
  139.     var bQueryViewer: Bool;
  140.     var bShellExec: Bool;
  141.     var bViewDocFile: Bool) : Bool; far;
  142.     
  143. function ApiDlgUnregisterViewer(lpszMIME: PChar;
  144.     cbMIME: Word) : Bool; far;
  145.     
  146. function ApiDlgRegisterWindowChange(var dwWindow: LongInt) : Bool; far;
  147. function ApiDlgUnregisterWindowChange(var dwWindow: LongInt) : Bool; far;
  148.     
  149. function ApiDlgParseAnchor(lpszAbsURL: PChar;
  150.     cbAbsURL: Word;
  151.     lpszRelURL: pChar;
  152.     cbRelURL: Word) : Bool; far;
  153.  
  154. function ApiDlgGetVersion(var nMajor: Word;
  155.     var nMinor: Word) : Bool; far;
  156.  
  157. function ApiDlgQueryFile(lpszFile: PChar;
  158.     cbFile: Word) : Bool; far;
  159.  
  160. function ApiDlgSetNotifyMethod(var bPost: Bool) : Bool; far;
  161.  
  162. function ApiDlgGetTransactionWindow(var dwTrx: LongInt) : Bool; far;
  163.  
  164. function ApiDlgSetFileName(lpszFile: PChar;
  165.     cbFile: Word) : Bool; far;
  166.  
  167. { ========== Toolbar ========== }
  168.  
  169. function ApiDlgCreateToolbar(lpszMenu: PChar;
  170.     cbMenu: Word) : Bool; far;
  171.  
  172. function ApiDlgAddToolbarButton(var nID: Word;
  173.     var nIdx: Integer;
  174.     lpszText: PChar;
  175.     cbText: Word;
  176.     var nBitmapStyle: Integer;
  177.     var nBitmapMask: Integer) : Bool; far;
  178.     
  179. function ApiDlgRemoveToolbarButton(var nID: Word) : Bool; far;
  180.  
  181. function ApiDlgIsToolbarButtonVisible(var nID: Word) : Bool; far;
  182.  
  183. function ApiDlgShowToolbarButton(var nID: Word;
  184.     var bShow: Bool) : Bool; far;
  185.  
  186. function ApiDlgIsToolbarButtonEnabled(var nID: Word) : Bool; far;
  187.  
  188. function ApiDlgEnableToolbarButton(var nID: Word;
  189.     var bEnable: Bool) : Bool; far; 
  190.  
  191. function ApiDlgGetToolbarText(var nID: Word) : Bool; far;
  192.  
  193. function ApiDlgSetToolbarText(var nID: Word;
  194.     lpszText: PChar;
  195.     cbText: Word) : Bool; far;
  196.  
  197. function ApiDlgGetToolbarFont(var bToolbar: Bool) : Bool; far;
  198.  
  199. function ApiDlgSetToolbarFont(lpszFont: PChar;
  200.     cbFont: Word;
  201.     var nPointSize: Integer;
  202.     var bToolbar: Bool) : Bool; far;
  203.  
  204. function ApiDlgSetToolbarBkgnd(var nRed: Integer;
  205.     var nGreen: Integer;
  206.     var nBlue: Integer) : Bool; far; 
  207.  
  208. function ApiDlgGetToolbarTextColor(var bToolbar: Bool) : Bool; far;
  209.  
  210. function ApiDlgSetToolbarTextColor(var nRed: Integer;
  211.     var nGreen: Integer;
  212.     var nBlue: Integer;
  213.     var bToolbar: Bool) : Bool; far;
  214.         
  215. { ========== HTML parser ========== }
  216.  
  217. function ApiDlgHtmlParse(lpszFile: PChar;
  218.     cbFile: Word;
  219.     lpszBuf: PChar;
  220.     cbBuf: Word;
  221.     var bAttr: Bool;
  222.     var bClosing: Bool) : Bool; far; 
  223.     
  224. function ApiDlgHtmlGetSibling(var nRel: Word) : Bool; far; 
  225.  
  226. function ApiDlgHtmlExtractTagAttr(lpszAttr: PChar;
  227.     cbAttr: Word) : Bool; far; 
  228.  
  229. function ApiDlgHtmlFindText(lpszText: PChar;
  230.     cbText: Word) : Bool; far;
  231.     
  232. function ApiDlgHtmlFindSpecial(lpszText: PChar;
  233.     cbText: Word) : Bool; far;
  234.     
  235. function ApiDlgHtmlFindComment(lpszText: PChar;
  236.     cbText: Word) : Bool; far;
  237.  
  238. function ApiDlgHtmlFindTagAttr(lpszAttr: PChar;
  239.     cbAttr: Word;
  240.     lpszValue: PChar;
  241.     cbValue: Word;
  242.     var nTag: Word) : Bool; far; 
  243.     
  244. function ApiDlgHtmlFindTagType(var nTag: Word) : Bool; far;
  245.  
  246. function ApiDlgHtmlFindTagName(lpszTag: PChar;
  247.     cbTag: Word) : Bool; far;
  248.  
  249. function ApiDlgHtmlEnumFindText(lpszText: PChar;
  250.     cbText: Word) : Bool; far;
  251.     
  252. function ApiDlgHtmlEnumFindSpecial(lpszText: PChar;
  253.     cbText: Word) : Bool; far;
  254.     
  255. function ApiDlgHtmlEnumFindComment(lpszText: PChar;
  256.     cbText: Word) : Bool; far;
  257.  
  258. function ApiDlgHtmlEnumFindTagAttr(lpszAttr: PChar;
  259.     cbAttr: Word;
  260.     lpszValue: PChar;
  261.     cbValue: Word;
  262.     var nTag: Word) : Bool; far; 
  263.     
  264. function ApiDlgHtmlEnumFindTagType(var nTag: Word) : Bool; far;
  265.  
  266. function ApiDlgHtmlEnumFindTagName(lpszTag: PChar;
  267.     cbTag: Word) : Bool; far;
  268.  
  269. { ========== Utilities ========== }
  270.     
  271. procedure ApiDlgAccessFormData(lpszFormData: PChar); far;
  272.  
  273. function ApiDlgAppendFormData(lpszData: PChar;
  274.     cbData: Word;
  275.     lpszName: PChar;
  276.     cbName: Word) : Bool; far;
  277.  
  278. function ApiDlgParseAbsoluteURL(lpszURL: PChar;
  279.     cbURL: Word) : Bool; far;
  280.     
  281. { ========== IMPLEMENTATION ========== }
  282.  
  283. implementation 
  284.  
  285. function ApiDlgSubclass4GL; external 'WLAPIDLG';
  286. function ApiDlgUnsubclass4GL; external 'WLAPIDLG';
  287. procedure ApiDlgGetFontInfo4GL; external 'WLAPIDLG';
  288. procedure ApiDlgFreeFont4GL; external 'WLAPIDLG';
  289. function ApiDlgCreateFont4GL; external 'WLAPIDLG';
  290.  
  291. function GetApiDlgDLLInstance; external 'WLAPIDLG';
  292. function ApiDlgNotifyOnWindowDestroy; external 'WLAPIDLG';
  293. function ApiDlgLogging; external 'WLAPIDLG';
  294.  
  295. function ApiDlgConnectBrowser; external 'WLAPIDLG';
  296. function ApiDlgDisconnectBrowser; external 'WLAPIDLG';
  297.  
  298. function ApiDlgGetWindowInfo; external 'WLAPIDLG';
  299. function ApiDlgListWindows; external 'WLAPIDLG';
  300.  
  301. function ApiDlgCloseWindow; external 'WLAPIDLG';
  302. function ApiDlgActivateWindow; external 'WLAPIDLG';
  303. function ApiDlgSetWindowPos; external 'WLAPIDLG';
  304. function ApiDlgShowWindow; external 'WLAPIDLG';
  305.  
  306. function ApiDlgShowFile; external 'WLAPIDLG';
  307. function ApiDlgOpenURL; external 'WLAPIDLG';
  308. function ApiDlgSaveURL; external 'WLAPIDLG';
  309. function ApiDlgPostFormData; external 'WLAPIDLG';
  310. function ApiDlgSaveFormData; external 'WLAPIDLG';
  311.  
  312. function ApiDlgCancel; external 'WLAPIDLG';
  313.  
  314. function ApiDlgRegisterProtocol; external 'WLAPIDLG';
  315. function ApiDlgUnregisterProtocol; external 'WLAPIDLG';
  316. function ApiDlgRegisterViewer; external 'WLAPIDLG';
  317. function ApiDlgUnregisterViewer; external 'WLAPIDLG';
  318. function ApiDlgRegisterWindowChange; external 'WLAPIDLG';
  319. function ApiDlgUnregisterWindowChange; external 'WLAPIDLG';
  320.  
  321. function ApiDlgParseAnchor; external 'WLAPIDLG';
  322. function ApiDlgGetVersion; external 'WLAPIDLG';
  323.  
  324. function ApiDlgQueryFile; external 'WLAPIDLG';
  325.  
  326. function ApiDlgSetNotifyMethod; external 'WLAPIDLG';
  327. function ApiDlgGetTransactionWindow; external 'WLAPIDLG';
  328.  
  329. function ApiDlgSetFileName; external 'WLAPIDLG';
  330.  
  331. function ApiDlgCreateToolbar; external 'WLAPIDLG';
  332. function ApiDlgAddToolbarButton; external 'WLAPIDLG';
  333. function ApiDlgRemoveToolbarButton; external 'WLAPIDLG';
  334.  
  335. function ApiDlgIsToolbarButtonVisible; external 'WLAPIDLG';
  336. function ApiDlgShowToolbarButton; external 'WLAPIDLG';
  337.  
  338. function ApiDlgIsToolbarButtonEnabled; external 'WLAPIDLG';
  339. function ApiDlgEnableToolbarButton; external 'WLAPIDLG';
  340.  
  341. function ApiDlgGetToolbarText; external 'WLAPIDLG';
  342. function ApiDlgSetToolbarText; external 'WLAPIDLG';
  343.  
  344. function ApiDlgGetToolbarFont; external 'WLAPIDLG';
  345. function ApiDlgSetToolbarFont; external 'WLAPIDLG';
  346.  
  347. function ApiDlgSetToolbarBkgnd; external 'WLAPIDLG';
  348. function ApiDlgGetToolbarTextColor; external 'WLAPIDLG';
  349. function ApiDlgSetToolbarTextColor; external 'WLAPIDLG';
  350.  
  351. function ApiDlgHtmlParse; external 'WLAPIDLG';
  352. function ApiDlgHtmlGetSibling; external 'WLAPIDLG';
  353.  
  354. function ApiDlgHtmlExtractTagAttr; external 'WLAPIDLG';
  355. function ApiDlgHtmlFindText; external 'WLAPIDLG';
  356. function ApiDlgHtmlFindSpecial; external 'WLAPIDLG';
  357. function ApiDlgHtmlFindComment; external 'WLAPIDLG';
  358.  
  359. function ApiDlgHtmlFindTagAttr; external 'WLAPIDLG';
  360. function ApiDlgHtmlFindTagType; external 'WLAPIDLG';
  361. function ApiDlgHtmlFindTagName; external 'WLAPIDLG';
  362.  
  363. function ApiDlgHtmlEnumFindText; external 'WLAPIDLG';
  364. function ApiDlgHtmlEnumFindSpecial; external 'WLAPIDLG';
  365. function ApiDlgHtmlEnumFindComment; external 'WLAPIDLG';
  366.  
  367. function ApiDlgHtmlEnumFindTagAttr; external 'WLAPIDLG';
  368. function ApiDlgHtmlEnumFindTagType; external 'WLAPIDLG';
  369. function ApiDlgHtmlEnumFindTagName; external 'WLAPIDLG';
  370.  
  371. procedure ApiDlgAccessFormData; external 'WLAPIDLG';
  372. function ApiDlgAppendFormData; external 'WLAPIDLG';
  373. function ApiDlgParseAbsoluteURL; external 'WLAPIDLG';
  374.  
  375. end.
  376.